home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / killer_news.dxpack / {6B6D2DE9-B0C8-45B2-8E06-83D39564A69F}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-04-15  |  1KB  |  26 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA['Called when the script is executed
  5. Sub Object_OnScriptEnter
  6.     
  7. End Sub
  8.  
  9. Sub Object_OnStateChange(state)
  10.     If state = "Command executed" Then
  11.         DesktopX.Object("k_bbcmenu").Move Object.Right+DesktopX.ScriptObject("k_bbcworldnewsback").Object.Left,Object.Bottom+DesktopX.ScriptObject("k_bbcworldnewsback").Object.Top
  12.         'If DesktopX.Object("k_bbcmenu").Visible=False Then
  13.             'DesktopX.Object("k_bbcmenu").Move Object.Right+DesktopX.ScriptObject("k_bbcworldnewsback").Object.Left,Object.Bottom+DesktopX.ScriptObject("k_bbcworldnewsback").Object.Top
  14.             'DesktopX.Object("k_bbcmenu").Visible=True
  15.         'Else
  16.             'DesktopX.Object("k_bbcmenu").Visible=False
  17.         'End If
  18.     End If
  19. End Sub
  20.  
  21. 'Called when the script is terminated
  22. Sub Object_OnScriptExit
  23.  
  24. End Sub
  25. ]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>-2</EditorLeft><EditorTop>394</EditorTop><EditorRight>1264</EditorRight><EditorBottom>905</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  26.